home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Pascal / Snippets / PNL Libraries / MySIVCManual.p < prev    next >
Encoding:
Text File  |  1996-05-29  |  873 b   |  50 lines  |  [TEXT/CWIE]
  1. unit MySIVCManual;
  2.  
  3. interface
  4.  
  5.     uses
  6.         MyOldSIVC;
  7.         
  8.     procedure StartupSIVCManual;
  9.     procedure ConfigureSIVCManual(mcresult: SIVCManualQueryCallBack);
  10.     
  11. implementation
  12.  
  13.     uses
  14.         MyFMenus, MyMenus, MyStartup;
  15.  
  16.     var
  17.         mcresult_callback : SIVCManualQueryCallBack;
  18.  
  19.     procedure DoSIVCManual;
  20.     begin
  21.         ManualQuery(mcresult_callback);
  22.     end;
  23.     
  24.     procedure SetSIVCManual(themenu, theitem:integer);
  25.     begin
  26.         SetIDItemEnable(themenu, theitem, CanManualQuery);
  27.     end;
  28.     
  29.     function InitSIVCManual(var msg: integer): OSStatus;
  30.     begin
  31. {$unused(msg)}
  32.         SetFBoth('sivc',DoSIVCManual,SetSIVCManual);
  33.         InitSIVCManual := noErr;
  34.     end;
  35.     
  36.     procedure ConfigureSIVCManual(mcresult: SIVCManualQueryCallBack);
  37.     begin
  38.         StartupSIVCManual;
  39.         mcresult_callback := mcresult;
  40.     end;
  41.     
  42.     procedure StartupSIVCManual;
  43.     begin
  44.         StartupFMenus;
  45.         StartupSIVC;
  46.         SetStartup(InitSIVCManual, nil, 0, nil);
  47.     end;
  48.     
  49. end.
  50.